home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tptc17tc.zip / MTPLUS.PAS < prev    next >
Pascal/Delphi Source File  |  1988-03-25  |  1KB  |  59 lines
  1.  
  2. (*
  3.  * Example of PASCAL/MT+
  4.  *)
  5.  
  6. MODULE MENUS;
  7.  
  8. CONST
  9. {$I MENUS.CON}
  10.  
  11. VAR
  12.     DUMMY_B:      BOOLEAN;
  13.     DATE:         STRING[12];
  14.     REVS:         BYTE;
  15.     WAIT_PERIOD:  LONGINT;
  16.     S:            STRING;   {default length?}
  17.     IN_TOP_LEVEL: EXTERNAL BOOLEAN;
  18.     MNS:          EXTERNAL ARRAY [1..200] OF STRING[40];
  19.     L_MARGIN:     EXTERNAL BYTE;
  20.  
  21.     (*------- notice the external declaration -------*)
  22.  
  23.     EXTERNAL PROCEDURE PUTCHRS(CH: CHAR ; CNT: INTEGER);
  24.     EXTERNAL FUNCTION WAIT_FOR_CHAR: CHAR;
  25.     EXTERNAL FUNCTION GET_CHR_AND_MESSAGES: CHAR;
  26.     EXTERNAL FUNCTION SYS_TICK: LONGINT;
  27.     EXTERNAL PROCEDURE ANSWER;
  28.  
  29.     (*------- notice the external declaration in an overlay #1 -------*)
  30.  
  31.     EXTERNAL  [1] PROCEDURE EDIT;
  32.     EXTERNAL  [2] PROCEDURE PREPARE;
  33.     EXTERNAL  [2] PROCEDURE SAVE_SYS_PARMS;
  34.     EXTERNAL  [5] PROCEDURE LOAD_MSG;
  35.     EXTERNAL  [5] PROCEDURE SAVE_MSG;
  36.     EXTERNAL  [5] PROCEDURE KILL_MSG;
  37.     EXTERNAL  [5] PROCEDURE VIEW_MSG;
  38.  
  39. PROCEDURE SET_DATE(S: STRING);
  40. BEGIN
  41.   DATE := S;
  42.   ATTR := HILT; 
  43.   XYGOTO(60,1); 
  44.   WRITE([ADDR(PUT_CHR)],DATE);
  45.   ATTR := NORMAL;
  46. END;
  47.  
  48. PROCEDURE SWITCH(CH: CHAR);
  49. BEGIN
  50.   C := (C & $FF00) ! ORD(CH);
  51.   (*----           ^ this is a bit-wise OR ----*)
  52.   (*----  ^ this is a bit-wise AND ----*)
  53. END;
  54.  
  55. {$E-}
  56. {$E+}
  57.  
  58. MODEND.
  59.